﻿Public Class Vacation
    Private m_Type As String
    Private m_Quantity As Integer
    Private m_price As Double
    Private m_LoginID As String

    Public Property LoginID As String

        Get
            Return m_LoginID
        End Get
        Set(value As String)
            m_LoginID = value
        End Set
    End Property

    Public Property Type As String

        Get
            Return m_Type
        End Get
        Set(value As String)
            m_Type = value
        End Set
    End Property

    Public Property Quantity As Integer

        Get
            Return m_Quantity
        End Get
        Set(value As Integer)
            m_Quantity = value
        End Set
    End Property

    Public Property Price As Double

        Get
            Return m_price
        End Get
        Set(value As Double)
            m_price = value
        End Set
    End Property
End Class
